home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh23c.d64
/
spulen berechnen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
8KB
|
246 lines
10 POKE53280,1:POKE53281,1:PRINT"[147]"
20 POKE646,0:POKE53272,23:O1=0:O2=0
50 REM ** SPULE (HF-DROSSEL) **
100 GOSUB50000:CLOSE2:OPEN2,0:GOTO1000
500 REM ** GET **
510 POKE198,0:WAIT198,1:GETA$:A=VAL(A$):RETURN
1000 REM ** MENUE **
1010 PRINT"[147]":SYSSZ,0,0,T$(0):SYSSZ,0,1,T$(1):SYSSZ,0,2,T$(2):SYSSZ,0,3,T$(3)
1020 SYSSZ,0,4,T$(4)
1030 SYSSZ,3,8,"1 = [211]PULE BERECHNEN"
1040 SYSSZ,3,10,"2 = [203]ERNTABELLE AUFLISTEN"
1050 SYSSZ,3,12,"3 = [196]RAHTTABELLE AUFLISTEN"
1060 SYSSZ,3,14,"4 = [197]RGEBNIS AUSDRUCKEN"
1070 SYSSZ,3,16,"5 = [212]ABELLEN AUSDRUCKEN"
1080 SYSSZ,3,19,T$(8)
1100 GOSUB500:IFA<1ORA>5THEN1100
1110 ONAGOSUB2000,6000,7000,55000,56000
1120 GOTO1010
2000 REM ** EINGABE **
2010 IFM4=2THEN2100
2020 T1=1:L1=0:D1=0:B1=0:K1=0:A1=0:F1=0:X1=0:Y1=0:M2=0:M3=0:M4=0
2100 FORJ=5TO23:SYSSZ,0,J,T$(7):NEXT:SYSSZ,2,3,"[211]PULENDATEN ":PRINT
2110 SYSSZ,1,6,"[204] IN [200]ENRY = "L1:SYSSZ,17,6,"";:INPUT#2,A$:L1=VAL(A$)
2120 SYSSZ,1,8,"[196] [203]ERN = "D1:SYSSZ,17,8,"";:INPUT#2,A$:D1=VAL(A$)
2130 SYSSZ,1,10,"[194] [203]ERN = "B1:SYSSZ,17,10,"";:INPUT#2,A$:B1=VAL(A$)
2140 SYSSZ,1,12,"[203]Z 1-2 = "K1:SYSSZ,17,12,"";:INPUT#2,A$:K1=VAL(A$)
2150 IFK1<1ORK1>2THEN2140
2160 SYSSZ,1,14,"[193]L IN N[200]ENRY = "A1:SYSSZ,17,14,"";:INPUT#2,A$:A1=VAL(A$)
2170 SYSSZ,1,16,"F IN [200]ERZ = "F1:SYSSZ,17,16,"";:INPUT#2,A$:F1=VAL(A$)
2180 GOSUB3000:RETURN
3000 REM ** KERNTABELLE LESEN **
3010 FORJ1=1TO15
3020 IFQ(J1,1)=D1ANDQ(J1,2)=B1ANDQ(J1,3)=K1THENX1=Q(J1,4):Y1=Q(J1,5):GOTO3040
3030 NEXT
3040 IFX1=0ORY1=0ORJ1>15THENSYSSZ,0,20,T$(10):SYSSZ,0,21,T$(11)
3050 IFX1=0ORY1=0ORJ1>15THENSYSSZ,0,22,T$(12)" (J/N)":GOTO3070
3060 GOTO3090
3070 GOSUB500:IFA$="J"THENM4=2:GOSUB6000
3080 GOTO2100
3090 N1=SQR(L1/(1E-9*A1))
4000 REM ** AUSGABE **
4010 M2=0:M4=0
4020 N5=N1:N=N5:GOSUB9000:IFM4=1THENGOTO2000
4030 E1=D3:E2=D4:NA=N5:MA=M2:RA=R:RA$=R$:LA=L:LA$=L$:FA=FE:Z3=0
4040 IFF1<>0THENZ3=2*(null)*F1*L1
4050 R=Z3:GOSUB8200:R2=R:R2$=R$
4060 QQ=Z3/R9:QQ=INT(QQ*10)/10
4070 FORJ=6TO23:SYSSZ,0,J,T$(7):NEXT
4080 SYSSZ,0,6,"[204] IN [200]ENRY =";L1
4090 SYSSZ,0,7,"[196] [203]ERN =";D1
4100 SYSSZ,0,8,"[194] [203]ERN =";B1
4110 SYSSZ,0,9,"[203]Z 1-2 =";K1
4120 SYSSZ,0,10,"[193]L IN N[200]ENRY =";A1
4130 SYSSZ,0,11,"F IN [200]ERZ =";F1
4140 SYSSZ,0,13,"[206] =";NA
4150 IFMA=0THENPRINTTAB(24)"[145][215]INDUNGEN"
4160 IFMA=1THENPRINTTAB(24)"[145]*2 [215]IND.PAR."
4170 SYSSZ,0,14,"[196] [206]ENND. =";E1;TAB(24)"[195]UL"
4180 SYSSZ,0,15,"[196] [193]USSEND. =";E2;TAB(24)"[195]UL"
4190 SYSSZ,0,16,"[210][195]U =";RA;TAB(24)RA$
4200 SYSSZ,0,17,"[216]L [201]NDUKTANZ =";R2;TAB(24)R2$
4210 SYSSZ,0,18,"[209] [211]PULENGUETE=";QQ
4220 SYSSZ,0,19,"F[195]U =";FA;TAB(24)"[203]UPFERFUELLFAK."
4230 GOSUB5000:IFM4=1THENRETURN
4240 GOSUB9080:GOTO4030
5000 REM ** DRAHTSTAERKE AENDERN **
5010 SYSSZ,0,21,T$(13):M3=1
5020 SYSSZ,0,23," [196]N+1=[198]1 [196]N-1=[198]3 [193]NDERE [198]7 ":GOSUB500
5030 IFA$=CHR$(13)THENM4=1:RETURN
5040 IFA$=CHR$(136)THEN2100
5050 IFA$=CHR$(133)ANDJ2=31ANDMA=1THENRETURN
5060 IFA$=CHR$(133)THENJ2=J2+1:IFJ2>31THENJ2=26:MA=1:GOTO5080
5070 GOTO5090
5080 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
5090 IFA$=CHR$(134)THENJ2=J2-1:IFJ2<26ANDM2=1THENJ2=31:MA=0
5100 D3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):RETURN
6000 REM ** KERNTABELLE LESEN **
6010 FORJ=5TO23:SYSSZ,0,J,T$(7):NEXT
6020 SYSSZ,2,3,"[203]ERNTABELLE AUFLISTEN"
6030 SYSSZ,1,5," [196] [203]ERN [194] "," [203]Z "," L/[206] "
6040 FORJ=1TO15
6050 SYSSZ,1,J+6,Q(J,1),Q(J,2),Q(J,3),Q(J,6)
6060 NEXT:GOTO500
7000 REM ** DRAHTTABELLE LESEN **
7010 FORJ=5TO23:SYSSZ,0,J,T$(7):NEXT
7020 SYSSZ,2,3,"[196]RAHTTABELLE AUFLISTEN"
7030 SYSSZ,2,5," [196]N "," [196]A "," [210]=[207]HM/M "
7040 FORJ=1TO15
7050 SYSSZ,1,J+6,Q1(J,1),Q1(J,2),Q1(J,3):NEXT
7060 PRINT" WEITER MIT RETURN":GOSUB500
7070 FORJ=6TO23:SYSSZ,0,J,T$(7):NEXT
7080 FORJ=16TO31
7090 SYSSZ,1,J-9,Q1(J,1),Q1(J,2),Q1(J,3)
7100 NEXT:GOSUB500:RETURN
8000 REM ** RUNDUNG VON N **
8010 NY=N5-INT(N5)
8020 IFNY>.7THENN5=INT(N5)+1:RETURN
8030 IFNY>.2THENN5=INT(N5)+.5:RETURN
8040 RETURN
8100 REM ** FORMATIERUNG VON L **
8110 IFL<1E-6THENL=L*1E9:L$="N[200]":GOTO8150
8120 IFL<1E-3THENL=L*1E6:L$="U[200]":GOTO8150
8130 IFL<1THENL=L*1E3:L$="M[200]":GOTO8150
8140 L$="[200]"
8150 L=INT(L+.5):RETURN
8200 REM ** FORMATIERUNG VON R **
8210 IFR>1E6THENR=R/1E6:R$="[205][207]HM":GOTO8250
8220 IFR>1E3THENR=R/1E3:R$="K[207]HM":GOTO8250
8230 IFR>1THENR$="[207]HM":GOTO8250
8240 IFR>1E-3THENR=R*1E3:R$="[205]ILLI [207]HM"
8250 R=INT(R*1000)/1000:RETURN
9000 REM ** BERECHNUNG **
9010 D2=Y1/(EXP(LOG(N)/X1))
9020 IFD2>=1.068THEND2=SQR((D2^2)/2):M2=1
9030 IFD2>=1.068THEND2=1.068:J2=31
9040 FORJ2=1TO31
9050 IFD2=<Q1(J2,2)THEND3=Q1(J2,1):D4=Q1(J2,2):Z1=Q1(J2,3):GOTO9070
9060 NEXT
9070 N5=INT((N5+.05)*10)/10:GOSUB8000
9080 N6=EXP((LOG(Y1/D4))*X1)
9090 FD=N5/N6:FE=INT(FD*50+.5)/100:IFM2=1THENFE=FE*2
9100 Z2=Q(J1,6):R=(Z2*N5*FD+100)/1000*Z1:IFM2=1THENR=R/2
9110 R9=R:GOSUB8200
9120 RETURN
50000 REM ** VARIABLEN LESEN **
50010 DIMQ(15,7),Q1(31,3),T$(15)
50100 T$(0)="[176][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
50110 T$(1)="[221] [200][211][197]-[211]OFT [221] [201]NDUKTIVITAETEN BERECHNEN [221]"
50120 T$(2)="[171][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
50130 T$(3)[178]"(null) (null)"
50140 T$(4)[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
50150 T$(5)="[211]PULE"
50160 T$(6)="[213]EBERTRAGER"
50170 T$(7)=" "
50180 T$(8)="[194]ITTE WAEHLEN:"
50190 T$(9)="[194]ITTE GEWUENSCHTE NUMMER EINTIPPEN"
50200 T$(10)="[203]ERNDATEN NICHT GEF."
50210 T$(11)="[194]ITTE [206]EUEINGABE"
50220 T$(12)="[203]ERNDATEN AUFLISTEN ?"
50230 T$(13)="[197]INGABE AENDERN ? (NEIN [210][197][212][213][210][206])"
51000 REM ** KERNDATEN **
51100 FORJ=1TO15
51200 FORW=1TO7
51205 READW1
51210 Q(J,W)=W1:NEXT
51220 NEXT
51400 DATA9,5,1,1.882,1.8565,18.5,10,11,7,1,1.836,2.3654,22,16,11,7,2,1.839
51420 DATA 2.5075,22,16,14,8,1,1.828,3.0292,28,25,14,8,2,1.832,3.2114,28,25
51430 DATA 18,11,1,1.839,3.8683,35.6,44
51440 DATA 18,11,2,1.861,4.1204,35.6,44,22,13,1,1.848,5.3375,44,63
51450 DATA 22,13,2,1.825,5.9283,44,63
51460 DATA 26,16,1,1.849,6.3362,52,94,26,16,2,1.834,6.9018,52,94
51470 DATA 30,19,1,1.835,7.8774,60,136
51480 DATA 30,19,2,1.831,8.5916,60,136,36,22,1,1.827,9.1729,73,201
51490 DATA 36,22,2,1.824,10.0917,73,201
52000 REM ** DRAHTTABELLE **
52100 FORJ=1TO31
52200 FORW=1TO3
52205 READW1
52210 Q1(J,W)=W1:NEXT
52220 NEXT
52400 DATA .032,.04,21.44,.04,.05,13.72,.05,.062,8.781,.063,.078,5.531
52420 DATA .071,.088,4.355,.08,.098,3.43,.09,.11,2.71,.1,.121,2.195
52440 DATA .112,.134,1.75,.125,.149,1.405,.14,.166,1.12,.16,.187,.8575
52460 DATA .18,.209,.6775,.2,.23,.5488,.224,.256,.4375,.25,.284,.3512
52480 DATA .28,.315,.28,.315,.352,.2212,.355,.395,.1742,.4,.442,.1372
52500 DATA .45,.495,.1084,.5,.548,.08781,.56,.611,.07,.63,.684,.05531
52520 DATA .71,.767,.04355,.75,.809,.03903,.8,.861,.0343,.85,.913,.03038
52540 DATA .9,.965,.0271,.95,1.017,.02432,1,1.068,.02195
53000 REM ** SPALTE UND ZEILE **
53010 X=0:FORI=52216TO52243:READA:POKEI,A:X=X+A:NEXT
53020 IFX<>3662THENPRINT"DATA-FEHLER!":STOP
53030 SZ=52216:GOTO54000
53040 DATA32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32,240
53050 DATA255,32,253,174,76,164,170,96,
54000 REM ** BIDSCHIRMFARBE **
54010 I=15:J=0
54020 POKE53280,I:POKE53281,I:POKE646,J
54030 PRINT"[147]";T$(0);T$(1);T$(2);T$(3);T$(4)
54040 SYSSZ,8,3," [194]ILDSCHIRMFARBE WAEHLEN "
54050 SYSSZ,6,8,"[194]ITTE [194]ILDSCHIRMFARBE MIT"
54060 SYSSZ,6,10,"DEN [195][213][210][211][207][210]-[212]ASTEN WAEHLEN":SYSSZ,6,12,I;J
54070 GOSUB500
54080 IFA$=CHR$(17)THENI=I+1:IFI>15THENI=0
54090 IFA$=CHR$(17)THEN54020
54100 IFA$=CHR$(145)THENI=I-1:IFI<0THENI=15
54110 IFA$=CHR$(145)THEN54020
54120 IFA$=CHR$(29)THENJ=J+1:IFJ>7THENJ=0
54130 IFA$=CHR$(29)THEN54020
54140 IFA$=CHR$(157)THENJ=J-1:IFJ<0THENJ=7
54150 IFA$=CHR$(157)THEN54020
54160 IFA$=CHR$(13)THENPOKE52214,I:POKE52214,I:POKE52215,J:RETURN
54170 GOTO54070
54180 RETURN
55000 REM ** DRUCKEN **
55010 SYSSZ,3,3,"[196]RUCKEN"
55100 CLOSE1:OPEN1,4,7:GOSUB55350
55110 PRINT#1,CHR$(14)SPC(6)"[211]PULE ([200]F-[196]ROSSEL) * [197]INGABE"
55120 GOSUB55350
55130 PRINT#1,CHR$(15)SPC(12)"[204] IN [200]ENRY =";L1
55140 PRINT#1,CHR$(15)SPC(12)"[196] [203]ERN-[196]URCHM. =";D1
55150 PRINT#1,CHR$(15)SPC(12)"[194] [203]ERN-[194]REITE =";B1
55160 PRINT#1,CHR$(15)SPC(12)"[203]Z 1-2 [203]AMMER =";K1
55170 PRINT#1,CHR$(15)SPC(12)"[193]L IN N[200]ENRY =";A1
55180 PRINT#1,CHR$(15)SPC(12)"F IN [200]ERZ =";F1
55190 PRINT#1:GOSUB55350
55200 PRINT#1,CHR$(14)SPC(6)"[211]PULE ([200]F-[196]ROSSEL) * [193]USGABE"
55210 GOSUB55350
55240 PRINT#1,CHR$(15)SPC(12)"[206] =";NA;
55250 IFMA=0THENPRINT#1,CHR$(15)CHR$(16)CHR$(51)CHR$(50)"[215]INDUNGEN"
55260 IFMA=1THENPRINT#1,CHR$(15)CHR$(16)CHR$(51)CHR$(50)"2 [215]IND. PARALLEL"
55270 PRINT#1,CHR$(15)SPC(12)"[196] [206]ENN. =";E1;CHR$(16)CHR$(51)CHR$(50)"[195]UL"
55280 PRINT#1,CHR$(15)SPC(12)"[196] [193]USS. =";E2;CHR$(16)CHR$(51)CHR$(50)"[195]UL"
55290 PRINT#1,CHR$(15)SPC(12)"[210][195]U =";RA;CHR$(16)CHR$(51)CHR$(50)RA$
55300 PRINT#1,CHR$(15)SPC(12)"[216]L [201]NDUKTANZ =";R2;CHR$(16)CHR$(51)CHR$(50)R2$
55310 PRINT#1,CHR$(15)SPC(12)"[209] [211]PULENGUETE =";QQ;CHR$(16)CHR$(51)CHR$(50)R2$
55320 PRINT#1,CHR$(15)SPC(12)"F[195]U =";FA;
55330 PRINT#1,CHR$(16)CHR$(51)CHR$(50)"[203]UPFERFUELLFAKTOR":PRINT#1:GOSUB55350
55340 O2=0:PRINT#1:PRINT#1:CLOSE1:RETURN
55350 PRINT#1,CHR$(15)SPC(12);:FORI=1TO56:PRINT#1,"-";:NEXT:PRINT#1:RETURN
56000 REM ** DRUCKEN **
56100 CLOSE1:OPEN1,4,7
56110 GOSUB56450:PRINT#1,CHR$(14)SPC(4)"[203]ERNTABELLE":GOSUB56450
56120 PRINT#1,CHR$(15)SPC(8)"[196]-[203]ERN";
56130 PRINT#1,CHR$(16)CHR$(49)CHR$(54)"[194]-[203]ERN";CHR$(16)CHR$(50)CHR$(52)"[203]Z";
56140 PRINT#1,CHR$(16)CHR$(51)CHR$(50)"[216]1";CHR$(16)CHR$(52)CHR$(48)"[217]1";
56150 PRINT#1,CHR$(16)CHR$(53)CHR$(52)"[204]N";CHR$(16)CHR$(54)CHR$(50)"[193]E"
56160 PRINT#1
56200 FORJ=1TO15:PRINT#1,CHR$(15)SPC(8);
56210 PRINT#1,Q(J,1);CHR$(16)CHR$(49)CHR$(54)Q(J,2);
56220 PRINT#1,CHR$(16)CHR$(50)CHR$(52)Q(J,3);CHR$(16)CHR$(51)CHR$(50)Q(J,4);
56230 PRINT#1,CHR$(16)CHR$(52)CHR$(48)Q(J,5);CHR$(16)CHR$(53)CHR$(52)Q(J,6);
56240 PRINT#1,CHR$(16)CHR$(54)CHR$(50)Q(J,7)
56250 NEXT
56300 GOSUB56450:PRINT#1:PRINT#1:PRINT#1
56310 GOSUB56450:PRINT#1,CHR$(14)SPC(4)"[196]RAHTTABELLE":GOSUB56450
56320 PRINT#1,CHR$(15)SPC(8)"[196]-[206]ENN";
56330 PRINT#1,CHR$(16)CHR$(50)CHR$(48)"[196]-[193]USSEN";
56340 PRINT#1,CHR$(16)CHR$(51)CHR$(50)"[210] [207]HM/M":PRINT#1
56400 FORJ=1TO31:PRINT#1,CHR$(15)SPC(8);
56410 PRINT#1,Q1(J,1);CHR$(16)CHR$(50)CHR$(48)Q1(J,2);
56420 PRINT#1,CHR$(16)CHR$(51)CHR$(50)Q1(J,3)
56430 NEXT:GOSUB56450
56440 PRINT#1:CLOSE1:RETURN
56450 PRINT#1,CHR$(15)SPC(8);:FORI=1TO60:PRINT#1,"-";:NEXT:PRINT#1:RETURN